home *** CD-ROM | disk | FTP | other *** search
/ Enter Special 5: Digital Photography / ENTER Special 05.iso / Grafika / Paint Shop Pro 8.0 / psp800ev.exe / Data1.cab / Preset_MagnifyingLens_Ground < prev    next >
Encoding:
Text File  |  2003-04-22  |  1.8 KB  |  57 lines
  1. from JascApp import *
  2.  
  3. def ScriptProperties():
  4.     return {
  5.         'Author': 'Kris Zaklika',
  6.         'Copyright': 'Copyright (C) 2002-2003, Jasc Software Inc., All Rights Reserved.',
  7.         'Description': 'A lens with the glass ground at the edges',
  8.         'Host': 'Paint Shop Pro',
  9.         'Host Version': '8.00'
  10.         }
  11.  
  12. def Preset_MagnifyingLens():
  13.     return {
  14.         'Bound': (0.17125,0.07,0.82375,0.94), 
  15.         'Darkness': 0, 
  16.         'Defocus': 4, 
  17.         'Frame': {
  18.             'Material': App.Constants.LensFrameMaterial.None
  19.             }, 
  20.         'Illumination': {
  21.             'LightList': [{
  22.                 'LightColor': (192,192,192), 
  23.                 'LightDirection': (0.000000,-0.000000,1.00000), 
  24.                 'HighlightSize': 19
  25.                 },{
  26.                 'LightColor': (255,255,255), 
  27.                 'LightDirection': (0.624208,0.781258,0.1), 
  28.                 'HighlightSize': 14
  29.                 }], 
  30.             'MaxAmbience': 100, 
  31.             'MinAmbience': 0
  32.             }, 
  33.         'LensSurface': {
  34.             'EnvironmentMap': {
  35.                 'Active': App.Constants.Boolean.true, 
  36.                 'MapType': App.Constants.LensMapType.CurrentImage, 
  37.                 'PatternOpacity': 100
  38.                 }, 
  39.             'Gloss': 85, 
  40.             'Magnification': 26, 
  41.             'LensMaterial': {
  42.                 'Color': (192,192,192), 
  43.                 'Pattern': None, 
  44.                 'Gradient': None, 
  45.                 'Texture': None
  46.                 }, 
  47.             'LensOpacity': 30, 
  48.             'Refraction': 30, 
  49.             'ShapeType': App.Constants.LensShape.Spherical, 
  50.             'Shininess': 30
  51.             }
  52.         }
  53.  
  54. def Do(Environment):
  55.     App.Do( Environment, 'MagnifyingLens',         Preset_MagnifyingLens())
  56.  
  57.